' C O P Y   T O  N   B   C O D E   T R O N G   F I L E   N  Y   V  O   U   M O D U L E   V B A 
 
 
 
 O p t i o n   E x p l i c i t 
 
 ' A u t h o r   :   N g u y e n   D u y   T u a n 
 
 ' E . M a i l   :   t u a n k t c d c n @ y a h o o . c o m 
 
 ' T e l         :   0 9 0 4 . 2 1 0 . 3 3 7 
 
 ' W e b s i t e :   w w w . b l u e s o f t s . n e t 
 
 
 
 # I f   V B A 7   T h e n 
 
 ' D e c l a r e   P t r S a f e   S u b . . . 
 
 D e c l a r e   P t r S a f e   F u n c t i o n   V N D W   L i b   " A c c H e l p e r . x l l "   A l i a s   " V N D "   ( B y V a l   A m o u n t   A s   D o u b l e ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   O u t p u t T y p e   A s   I n t e g e r   =   3 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 1   A s   V a r i a n t   =   " " ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 2   A s   V a r i a n t   =   " " ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   M U n i t 2   A s   L o n g   =   1 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   H a s G r o u p i n g S y m b o l   A s   B o o l e a n   =   F a l s e )   A s   V a r i a n t 
 
 ' O u t p u t T y p e   =   1   = >   T C V N 3 ( A B C ) 
 
 ' O u t p u t T y p e   =   2   = >   V N I 
 
 ' O u t p u t T y p e   =   3   = >   U N I C O D E   ( N g a m   d i n h ) 
 
 
 
 D e c l a r e   P t r S a f e   F u n c t i o n   U S D W   L i b   " A c c H e l p e r . x l l "   A l i a s   " U S D "   ( B y V a l   A m o u n t   A s   D o u b l e ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 1   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 2   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   M U n i t 2   A s   L o n g   =   1 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   H a s G r o u p i n g S y m b o l   A s   B o o l e a n   =   F a l s e )   A s   V a r i a n t 
 
 
 
 D e c l a r e   P t r S a f e   F u n c t i o n   N u m 2 S t r W   L i b   " A c c H e l p e r . x l l "   A l i a s   " N u m 2 S t r "   ( B y V a l   A m o u n t   A s   D o u b l e ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   L a n g T y p e   A s   I n t e g e r   =   2 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 1   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 2   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   M U n i t 2   A s   L o n g   =   1 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   H a s G r o u p i n g S y m b o l   A s   B o o l e a n   =   F a l s e )   A s   V a r i a n t 
 
 
 
 ' L a n g T y p e   =   1   = >   V i e t   N a m 
 
 ' L a n g T y p e   =   2   = >   E n g l i s h 
 
 
 
 D e c l a r e   P t r S a f e   F u n c t i o n   T o U N C W   L i b   " A c c H e l p e r . x l l "   A l i a s   " U N C "   ( B y V a l   T e x t   A s   V a r i a n t ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   I n p u t T y p e   A s   I n t e g e r   =   1 )   A s   V a r i a n t 
 
 ' I n p u t T y p e   =   1     T C V N 3 > > U N I C O D E   ( n g a m   d i n h ) 
 
 ' I n p u t T y p e   =   2         V N I > > U N I C O D E 
 
 
 
 # E l s e 
 
 
 
 D e c l a r e   F u n c t i o n   V N D W   L i b   " A c c H e l p e r . x l l "   A l i a s   " V N D "   ( B y V a l   A m o u n t   A s   D o u b l e ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   O u t p u t T y p e   A s   I n t e g e r   =   3 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 1   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 2   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   M U n i t 2   A s   L o n g   =   1 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   H a s G r o u p i n g S y m b o l   A s   B o o l e a n   =   F a l s e )   A s   V a r i a n t 
 
 ' O u t p u t T y p e   =   1   = >   T C V N 3 ( A B C ) 
 
 ' O u t p u t T y p e   =   2   = >   V N I 
 
 ' O u t p u t T y p e   =   3   = >   U N I C O D E   ( N g a m   d i n h ) 
 
 
 
 D e c l a r e   F u n c t i o n   U S D W   L i b   " A c c H e l p e r . x l l "   A l i a s   " U S D "   ( B y V a l   A m o u n t   A s   D o u b l e ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 1   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 2   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   M U n i t 2   A s   L o n g   =   1 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   H a s G r o u p i n g S y m b o l   A s   B o o l e a n   =   F a l s e )   A s   V a r i a n t 
 
 
 
 D e c l a r e   F u n c t i o n   N u m 2 S t r W   L i b   " A c c H e l p e r . x l l "   A l i a s   " N u m 2 S t r "   ( B y V a l   A m o u n t   A s   D o u b l e ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   L a n g T y p e   A s   I n t e g e r   =   2 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 1   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   U n i t 2   A s   V a r i a n t   =   v b N u l l S t r i n g ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   M U n i t 2   A s   L o n g   =   1 ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   H a s G r o u p i n g S y m b o l   A s   B o o l e a n   =   F a l s e )   A s   V a r i a n t 
 
 
 
 ' L a n g T y p e   =   1   = >   V i e t   N a m 
 
 ' L a n g T y p e   =   2   = >   E n g l i s h 
 
 
 
 D e c l a r e   F u n c t i o n   T o U N C W   L i b   " A c c H e l p e r . x l l "   A l i a s   " U N C "   ( B y V a l   T e x t   A s   V a r i a n t ,   _ 
 
                                                                                 O p t i o n a l   B y V a l   I n p u t T y p e   A s   I n t e g e r   =   1 )   A s   V a r i a n t 
 
 ' I n p u t T y p e   =   1     T C V N 3 > > U N I C O D E   ( n g a m   d i n h ) 
 
 ' I n p u t T y p e   =   2         V N I > > U N I C O D E 
 
 
 
 # E n d   I f 
 
 
 
 S u b   T e s t ( ) 
 
         D i m   s   A s   S t r i n g 
 
       s   =   V N D W ( 1 0 2 3 0 0 ,   1 ,   " U 1 " ,   " U 2 " ,   1 ,   T r u e ) 
 
       D e b u g . P r i n t   s 
 
 E n d   S u b 
 
 